home *** CD-ROM | disk | FTP | other *** search
- -- background: 55552 from stack: in
- -- bmap block id: 37956
- -- flags: 0000
- -- background id: 0
- -- name:
- ----- HyperTalk script -----
- on newStack
- extend
- end newStack
-
- on extend
- -- type "extend" into the message box and press return to make
- -- three months worth of new cards.
- if the name of this stack contains "stack ideas"
- then
- answer "Please make a new stack before extending it." with "OK"
- else
- answer "Make three months more of new cards?" with "OK" or "Cancel"
- if it is "Cancel" then exit extend
- go to last card of this background
- put getStartDate() into start --what date to begin on
- if start is "Cancel" then exit extend
- put 60*60*24 into OneDay --seconds in a day
- repeat with cnt = 1 to (365 div 4) --three months
- put start into it --a copy
- convert it to long date
- put it into field "Date"
- add OneDay to start
- doMenu New Card
- end repeat
- convert start to long date --fix the last card
- put start into field "Date"
- end if
- end extend
-
- function getStartDate
- -- end of stack or today, whichever is newer
- get field "Date"
- if it is empty then put the short date into it
- convert it to seconds --so we can compare
- put the short date into today
- convert today to seconds
- if today < 2587766400 then
- answer "Set the Control Panel to today's date" with "OK"
- return "Cancel"
- end if
- if it >= today then return it --calendar already beyond today
- convert it to short date
- answer "Start from which date?" with it or the short date or "Cancel"
- if it is "Cancel" then return it
- convert it to seconds
- return it
- end getStartDate
-
- on openBackground
- push recent card
- end openBackground
-
-
- -- part 1 (button)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=349 top=35 right=58 bottom=377
- -- title width / last selected line: 0
- -- icon id / first selected line: 10610 / 10610
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: dial phone
- ----- HyperTalk script -----
- on mouseUp
- get the selection
- if it is empty then get the message
- if it is empty then ask "Dial what number?"
- if it is not empty then
- push this card
- visual effect zoom open
- go to stack "Phone"
- dial it
- pop card
- end if
- end mouseUp
-
-
-
- -- part 2 (button)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=381 top=35 right=58 bottom=413
- -- title width / last selected line: 0
- -- icon id / first selected line: 3430 / 3430
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Address
- ----- HyperTalk script -----
- on mouseUp
- get the selection
- visual effect zoom open
- go to "Address"
- if it is not empty then find it
- end mouseUp
-
-
-
- -- part 3 (button)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=453 top=35 right=58 bottom=483
- -- title width / last selected line: 0
- -- icon id / first selected line: 15972 / 15972
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: go to calendar
- ----- HyperTalk script -----
- on mouseUp
- get the seconds
- convert it to dateItems
- put ((item 1 of it) - 1987) *2 into whichSix
- if item 2 of it > 6 then add 1 to whichSix
- visual effect zoom open
- if whichSix < 1 then go card 1 of stack "Datebook"
- else if whichSix > 5 then go card 5 of stack "Datebook"
- else
- go to card whichSix of stack "Datebook"
- send "bracketWeek" && the seconds to this card
- end if
- end mouseUp
-
-
-
- -- part 4 (button)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=418 top=35 right=58 bottom=448
- -- title width / last selected line: 0
- -- icon id / first selected line: 4432 / 4432
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: go to To Do
- ----- HyperTalk script -----
- on mouseUp
- go to card "First Do" of "Datebook"
- end mouseUp
-
-
-
- -- part 5 (field)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=28 top=62 right=82 bottom=232
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 2
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Date
-
-
- -- part 6 (field)
- -- low flags: 00
- -- high flags: 4000
- -- rect: left=63 top=90 right=128 bottom=236
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 7 (field)
- -- low flags: 00
- -- high flags: 4000
- -- rect: left=63 top=126 right=164 bottom=236
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 8 (field)
- -- low flags: 00
- -- high flags: 4000
- -- rect: left=63 top=162 right=200 bottom=236
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 9 (field)
- -- low flags: 00
- -- high flags: 4000
- -- rect: left=63 top=198 right=236 bottom=236
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 10 (field)
- -- low flags: 00
- -- high flags: 4000
- -- rect: left=63 top=234 right=272 bottom=236
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 11 (field)
- -- low flags: 00
- -- high flags: 4000
- -- rect: left=63 top=270 right=308 bottom=236
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 12 (field)
- -- low flags: 00
- -- high flags: 4000
- -- rect: left=306 top=59 right=97 bottom=479
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 13 (field)
- -- low flags: 00
- -- high flags: 4000
- -- rect: left=306 top=95 right=133 bottom=479
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 14 (field)
- -- low flags: 00
- -- high flags: 4000
- -- rect: left=306 top=131 right=169 bottom=479
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 15 (field)
- -- low flags: 00
- -- high flags: 4000
- -- rect: left=306 top=167 right=205 bottom=479
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 16 (field)
- -- low flags: 00
- -- high flags: 4000
- -- rect: left=306 top=203 right=241 bottom=479
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 17 (field)
- -- low flags: 00
- -- high flags: 4000
- -- rect: left=306 top=239 right=277 bottom=479
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 18 (field)
- -- low flags: 00
- -- high flags: 4000
- -- rect: left=306 top=275 right=313 bottom=479
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 21 (button)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=209 top=304 right=329 bottom=236
- -- title width / last selected line: 0
- -- icon id / first selected line: 1014 / 1014
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Prev
- ----- HyperTalk script -----
- on mouseUp
- visual effect wipe right
- go to previous card
- end mouseUp
-
-
-
- -- part 22 (button)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=276 top=303 right=329 bottom=303
- -- title width / last selected line: 0
- -- icon id / first selected line: 1013 / 1013
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Next
- ----- HyperTalk script -----
- on mouseUp
- visual effect wipe left
- go to next card
- end mouseUp
-
-
-
- -- part 23 (button)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=449 top=303 right=331 bottom=486
- -- title width / last selected line: 0
- -- icon id / first selected line: 1012 / 1012
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Return
- ----- HyperTalk script -----
- on mouseUp
- visual effect iris close
- pop card
- end mouseUp
-
-
-
- -- part 24 (button)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=315 top=32 right=61 bottom=347
- -- title width / last selected line: 0
- -- icon id / first selected line: 21700 / 21700
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Home
- ----- HyperTalk script -----
- on mouseUp
- visual effect iris open
- go Home
- end mouseUp
-
-